home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…on Library 1994 September / ARPLE-Sept-94-Supplement.iso / AppleSoft / System 7.5 Demos *Revised* / System Folder / Extensions / QuickDraw™ GX / QuickDraw™ GX.rsrc / psbt_-28347 < prev    next >
Encoding:
Text File  |  1994-08-19  |  9.3 KB  |  570 lines
  1. %Planguagelevel 2 lt {
  2. /ShapeBuildChar {
  3. pop 
  4. begin 
  5. 0 setlinewidth 
  6. Shape begin 
  7. AdvanceVector dup 0 get exch 1 get 
  8. shapeType /i ne { 
  9. x1 y1 Grid x2 y2 Grid setcachedevice    
  10. geomProc 
  11. FillDict fillKey get exec 
  12. } { 
  13. setcharwidth 
  14. geomProc 
  15. } ifelse
  16. end
  17. end
  18. } Bdef
  19. } {
  20. /PatternPaintProc {
  21. begin 
  22. IpatTransform concat 
  23. patShape begin 
  24. CurrColorSet 
  25. colorSet SetColorSet 
  26. ColorSpace null ne { 
  27. ColorSpace setcolorspace 
  28. } if
  29. shapeType /b eq { 
  30. CurrOrMode 0 eq { 
  31. 0 colorSet SetIndexedColor 
  32. newpath
  33. x1 y1 moveto x2 y1 lineto
  34. x2 y2 lineto x1 y2 lineto
  35. closepath
  36. fill
  37. } if
  38. ImageMaskColor colorSet SetIndexedColor 
  39. } if
  40. newpath 
  41. geomProc 
  42. FillDict fillKey get exec 
  43. SetColorSet 
  44. end
  45. end
  46. } Bdef
  47. } ifelse 
  48. languagelevel 2 lt { 
  49. /MakeShapeFont {
  50. 8 dict dup begin 
  51. 4 1 roll 
  52. [3 1 roll]
  53. /AdvanceVector Xdef 
  54. /Shape Xdef
  55. /FontType 3 def
  56. /FontMatrix [1 0 0 1 0 0] def 
  57. /FontBBox [ 
  58. Shape ShapeBBox
  59. ] def
  60. /Encoding StandardEncoding def 
  61. /BuildChar /ShapeBuildChar load def
  62. end
  63. } Bdef
  64. } if 
  65. /PortMapping matrix def
  66. /PortPatternMapping matrix def 
  67. /SaveCTMForPattern matrix def 
  68. /GridMatrix {
  69. dup 0 get 
  70. 1 index 3 get 
  71. 0.0 eq exch 0.0 eq and    
  72. 1 index 1 get 
  73. 2 index 2 get 
  74. 0.0 eq exch 0.0 eq and    
  75. or { 
  76. 0 1 3 { 
  77. dup 
  78. 2 index exch 
  79. get dup abs 1.0 gt {    
  80. round 
  81. } if
  82. 2 index 
  83. 3 1 roll put 
  84. } for
  85. pop 
  86. } if
  87. } bind def
  88. /SetupPatternCTM {
  89. SaveCTMForPattern currentmatrix pop
  90. PortMap    { 
  91. PortMapping PortPatternMapping
  92. copy dup GridMatrix 
  93. setmatrix 
  94. PortAllign not { 
  95. 0 0 SaveCTMForPattern transform    itransform 
  96. translate
  97. } if
  98. } { 
  99. PortAllign { 
  100. 0 0 PortMapping transform itransform
  101. translate
  102. } if
  103. } ifelse
  104. } Bdef
  105. languagelevel 2 lt {
  106. /MakePatternDict {
  107. 21 dict dup begin 
  108. 10 1 roll 
  109. /PortAllign Xdef
  110. /PortMap Xdef
  111. /py Xdef /px Xdef
  112. /vy Xdef /vx Xdef
  113. /uy Xdef /ux Xdef
  114. /patTransform [ 
  115. ux uy
  116. vx vy
  117. px py
  118. ] def
  119. dup /shapeType get /b eq {
  120. dup ShapeBBox 
  121. BoxWidths 
  122. vy ne vx 0 ne or 
  123. exch ux ne uy 0 ne or 
  124. or { 
  125. dup /shapeType /i put
  126. } if
  127. } if
  128. ux uy MakeShapeFont 
  129. /patternFont exch definefont    
  130. /patternFontDict Xdef 
  131. /IpatTransform 
  132. patTransform matrix
  133. invertmatrix
  134. def
  135. end
  136. } Bdef
  137. } {    
  138. /MakePatternDict {
  139. 10 dict dup begin 
  140. 10 1 roll 
  141. /PatternType 1 def 
  142. /PortAllign Xdef 
  143. /PortMap Xdef 
  144. [ 7 1 roll ] 
  145. /patTransform Xdef 
  146. /XStep 1 def 
  147. /YStep 1 def
  148. /TilingType CurrGridFit {2} {1} ifelse def 
  149. /PaintProc /PatternPaintProc load def 
  150. /IpatTransform 
  151. patTransform [0 0 0 0 0 0]
  152. invertmatrix
  153. def
  154. /patShape Xdef 
  155. /BBox [
  156. gsave
  157. ScratchMatrix currentmatrix 
  158. IpatTransform concat 
  159. patShape /shapeType get /g eq { 
  160. patShape /geomProc get exec 
  161. setmatrix 
  162. /flattenpath 0 AvoidLimit pathbbox 
  163. } { 
  164. patShape ShapeBBox 
  165. 4 2 roll 4 copy 4 2 roll BoxWidths RP 
  166. pop pop
  167. setmatrix 
  168. pathbbox 
  169. } ifelse
  170. grestore
  171. ] def
  172. /PaintType 
  173. patShape /shapeType get dup /i eq exch /b eq or { 
  174. 1 
  175. } { 
  176. 2 
  177. }ifelse 
  178. def
  179. end
  180. dup /patTransform get 
  181. makepattern 
  182. } Bdef
  183. } ifelse 
  184. languagelevel 2 lt {
  185. /patternString 100 string def 
  186. /PatternFill {
  187. CurrPat begin 
  188. gsave 
  189. SetupPatternCTM 
  190. patternFontDict /Shape get /shapeType get /b eq {
  191. CurrOrMode 0 eq { 
  192. 0 patternFontDict /Shape get /colorSet get SetIndexedColor 
  193. dup 
  194. gsave {fill} {eofill} ifelse grestore 
  195. } if
  196. ImageMaskColor patternFontDict /Shape get /colorSet get SetIndexedColor 
  197. } { 
  198. patternFontDict /Shape get /shapeType get /i eq {
  199. patternFontDict /Shape get dup /colorSet get dup 
  200. null ne { 
  201. SetColorSet 
  202. /BitsPerPixel get 2 exch exp 1 sub /MaxSampleInt exch store 
  203. InstallColorSetTransfers 
  204. } {
  205. pop 
  206. pop 
  207. } ifelse
  208. } if
  209. } ifelse
  210. {/clip 0 AvoidLimit}
  211. {/eoclip 0 AvoidLimit}
  212. ifelse 
  213. /flattenpath 0 AvoidLimit 
  214. /pathbbox    load stopped 
  215. {0 0 0 0} if 
  216. newpath 
  217. patternFontDict dup setfont 
  218. /FontBBox get 
  219. {} forall BoxWidths 
  220. 6 2 roll 
  221. 4 index add 
  222. exch 
  223. 5 index add 
  224. 4 2 roll 
  225. 4 index sub 
  226. exch 
  227. 5 index sub 
  228. exch 4 2 roll exch 
  229. /y2 Xdef
  230. /x2 Xdef
  231. /y1 Xdef
  232. /x1 Xdef
  233. x1 y1 IpatTransform transform pop 
  234. x1 y2 IpatTransform transform pop 
  235. Min 
  236. x2 y1 IpatTransform transform pop 
  237. x2 y2 IpatTransform transform pop 
  238. Min 
  239. Min floor /x1p Xdef 
  240. x1 y1 IpatTransform transform pop 
  241. x1 y2 IpatTransform transform pop 
  242. Max 
  243. x2 y1 IpatTransform transform pop 
  244. x2 y2 IpatTransform transform pop 
  245. Max 
  246. Max ceiling /x2p Xdef 
  247. x1 y1 IpatTransform transform exch pop 
  248. x2 y1 IpatTransform transform exch pop 
  249. Min 
  250. x1 y2 IpatTransform transform exch pop 
  251. x2 y2 IpatTransform transform exch pop 
  252. Min 
  253. Min floor /y1p Xdef 
  254. x1 y1 IpatTransform transform exch pop 
  255. x2 y1 IpatTransform transform exch pop 
  256. Max 
  257. x1 y2 IpatTransform transform exch pop 
  258. x2 y2 IpatTransform transform exch pop 
  259. Max 
  260. Max ceiling /y2p Xdef 
  261. /x1p x1p floor def
  262. /y1p y1p floor def
  263. /x2p x2p ceiling def
  264. /y2p y2p ceiling def
  265. pop pop 
  266. /lattWidth x2p x1p sub 1 add cvi def
  267. y1p 1 y2p {
  268. x1p exch patTransform transform moveto 
  269. 0 100 lattWidth { 
  270. lattWidth exch sub 
  271. dup 100 gt { 
  272. pop 100 
  273. } if 
  274. patternString 0 3 -1 roll getinterval 
  275. show 
  276. } for 
  277. } for
  278. grestore
  279. newpath
  280. end
  281. } Bdef
  282. } if 
  283. /PathLength {
  284. /@1 0 def 
  285. { /@3 Xstore /@2 Xstore } 
  286. { 2 copy 
  287. @3 sub dup mul 
  288. exch @2 sub dup mul 
  289. add sqrt 
  290. @1 add /@1 Xdef 
  291. /@3 Xstore /@2 Xstore    
  292. }
  293. {} 
  294. {} 
  295. /flattenpath 0 AvoidLimit    
  296. pathforall
  297. @1 
  298. } Bdef
  299. /MakeDashDict {
  300. 14 dict dup begin 
  301. 7 1 roll 
  302. /dashScale Xdef 
  303. /phase Xdef 
  304. /advance Xdef 
  305. /levelDash Xdef 
  306. /autoAdvance Xdef 
  307. /Shape Xdef 
  308. /FirstX null def /FirstY 0 def 
  309. /LastX 0 def /LastY 0 def
  310. /CurrCTM [0 0 0 0 0 0] def 
  311. /N 0 def 
  312. end
  313. } Bdef
  314. /StampDash {
  315. LastX FirstX NotEqual
  316. LastY FirstY NotEqual or { 
  317. CurrDash 
  318. currentlinewidth 
  319. null SetDash 
  320. CurrCTM currentmatrix 
  321. FirstX FirstY translate 
  322. levelDash not { 
  323. LastY FirstY sub 
  324. LastX FirstX sub
  325. ATanRot
  326. } if
  327. 1 currentlinewidth scale 
  328. 0 setlinewidth 
  329. 0 frameOffset translate 
  330. 1 1 dashScale div scale 
  331. newpath 0 0 moveto
  332. Shape begin 
  333. geomProc 
  334. setmatrix 
  335. fillKey QD2Fill 
  336. end
  337. setlinewidth 
  338. SetDash 
  339. } if
  340. } Bdef
  341. /DashLT {/LastY Xdef /LastX Xdef} Bdef
  342. /DashCT {/LastY Xdef /LastX Xdef 4 {pop} repeat } Bdef
  343. /DashCP {} Bdef
  344. /DashMT {
  345. FirstX null eq { 
  346. /FirstY Xdef 
  347. /FirstX Xdef
  348. } { 
  349. 2 copy 
  350. LastY ne exch 
  351. LastX ne or    { 
  352. StampDash 
  353. /FirstY Xdef 
  354. /FirstX Xdef
  355. } { 
  356. pop pop 
  357. } ifelse
  358. } ifelse
  359. } Bdef
  360. /DashStroke {
  361. FullGsave
  362. begin 
  363. CurrRightIsOut {neg} if 
  364. /frameOffset Xdef
  365. Shape /colorSet get SetColorSet 
  366. Shape /ColorSpace get dup null ne { 
  367. setcolorspace
  368. } {
  369. pop
  370. } ifelse
  371. autoAdvance {
  372. PathLength dup advance div floor /N Xdef 
  373. N div 
  374. } { 
  375. advance 
  376. } ifelse
  377. /@1 Xdef 
  378. Shape    ShapeBBox 
  379. BoxWidths pop 
  380. dup 0 eq { 
  381. pop 
  382. @1 2 div 
  383. } if
  384. .10 mul 
  385. dup @1 exch sub 
  386. [3 1 roll] 
  387. phase setdash 
  388. currentlinewidth 
  389. 0 setlinewidth 
  390. /strokepath 0 AvoidLimit 
  391. setlinewidth 
  392. [] 0 setdash 
  393. /FirstX null def 
  394. /DashMT load
  395. /DashLT load
  396. /DashCT load
  397. /DashCP load 
  398. pathforall 
  399. FirstX null ne { 
  400. StampDash 
  401. } if 
  402. end
  403. FullGrestore newpath
  404. } Bdef
  405. /FillDict 7 dict dup 3 -1 roll Xdef begin 
  406. /Fr {
  407. CurrDash null eq { 
  408. CurrFrame dup 0 eq { 
  409. stroke 
  410. pop
  411. } { 
  412. FillDict exch 
  413. -1 eq {/Of get} {/If get} ifelse
  414. exec
  415. } ifelse
  416. } { 
  417. CurrFrame CurrDash DashStroke    
  418. } ifelse
  419. } Bdef
  420. /If
  421. {gsave clip currentlinewidth 2 mul setlinewidth stroke grestore newpath} Bdef
  422. /Of
  423. {gsave FullPath /eoclip 0 AvoidLimit currentlinewidth 2 mul setlinewidth stroke grestore newpath} Bdef
  424. /Eo    /eofill load def
  425. /In {FullPath eofill} Bdef
  426. /W    /fill load def
  427. /No {} Bdef 
  428. end 
  429. languagelevel 1 eq {
  430. /PatternFillDict 6 dict dup 3 -1 roll Xdef begin 
  431. /Fr {
  432. CurrDash null eq { 
  433. CurrFrame dup 0 eq { 
  434. /strokepath 0 AvoidLimit true PatternFill 
  435. pop
  436. } { 
  437. PatternFillDict exch 
  438. -1 eq {/Of get} {/If get} ifelse
  439. exec
  440. } ifelse
  441. } { 
  442. CurrFrame CurrDash DashStroke    
  443. } ifelse
  444. } Bdef
  445. /W {true PatternFill} Bdef
  446. /Eo {false PatternFill} Bdef
  447. /In {TightFullPath false PatternFill} Bdef
  448. /If
  449. {gsave clip currentlinewidth 2 mul setlinewidth strokepath
  450. true exch PatternFill grestore newpath} Bdef
  451. /Of
  452. {gsave TightFullPath eoclip currentlinewidth 2 mul setlinewidth strokepath
  453. true exch PatternFill grestore newpath} Bdef
  454. end
  455. } if 
  456. languagelevel 1 eq {
  457. /QD2Fill {
  458. CurrPat null eq { 
  459. FillDict 
  460. } { 
  461. PatternFillDict 
  462. } ifelse
  463. exch get exec 
  464. } Bdef
  465. } { 
  466. /OldColorAndSpace [] def 
  467. /OldMatrix matrix def 
  468. /InstallPatternColorSpace {
  469. CurrPat null ne { 
  470. CurrPat begin
  471. PortMap PortAllign or {
  472. OldMatrix currentmatrix pop 
  473. SetupPatternCTM
  474. SynchPatMatrix
  475. } if
  476. /OldColorAndSpace [
  477. currentcolor currentcolorspace    
  478. ] store
  479. PaintType 2 eq {            
  480. currentcolor 
  481. dup type /dicttype eq {pop} if 
  482. } if
  483. end
  484. CurrPat setpattern 
  485. } if
  486. } Bdef
  487. /RestoreOldColorAndSpace {
  488. CurrPat null ne {
  489. CurrPat /PortAllign get CurrPat /PortMap get or {
  490. OldMatrix setmatrix
  491. } if
  492. OldColorAndSpace aload pop 
  493. setcolorspace setcolor 
  494. } if
  495. } Bdef
  496. /QD2Fill {
  497. InstallPatternColorSpace
  498. FillDict 
  499. exch get exec 
  500. RestoreOldColorAndSpace
  501. } Bdef
  502. } ifelse 
  503. /GlyphPaint {
  504. FullGsave 
  505. exch 
  506. HasBold { 
  507. CurrBold 
  508. AugGstate /FontMapping get 
  509. dtransform 
  510. SetBold 
  511. } if
  512. { 
  513. aChar 0 3 -1 roll put 
  514. dup 
  515. currentpoint newpath moveto 
  516. HasBold { 
  517. currentpoint 3 -1 roll 
  518. aChar true GXCharPath 
  519. CurrCTM currentmatrix exch 
  520. CurrBold scale 
  521. currentlinewidth 
  522. exch 
  523. 1 setlinewidth 
  524. dup /W eq 
  525. CurrPat null eq    and { 
  526. stroke 
  527. 3 -1 roll setmatrix 
  528. } { 
  529. strokepath 
  530. 3 -1 roll setmatrix 
  531. dup QD2Fill 
  532. } ifelse
  533. exch setlinewidth 
  534. 3 1 roll 
  535. moveto 
  536. } if
  537. aChar true GXCharPath
  538. currentpoint 
  539. 3 -1 roll 
  540. QD2Fill
  541. moveto 
  542. } forall
  543. pop 
  544. currentpoint 
  545. FullGrestore 
  546. moveto
  547. } Bdef
  548. /ShowDict 7 dict dup 3 -1 roll Xdef begin 
  549. languagelevel 1 eq {
  550. /W {CurrPat null eq HasBold not and {show} {/W GlyphPaint} ifelse} Bdef
  551. } {
  552. /W {
  553. HasBold not {
  554. InstallPatternColorSpace show RestoreOldColorAndSpace
  555. } {
  556. /W GlyphPaint
  557. } ifelse
  558. } Bdef
  559. } ifelse 
  560. /In {true GXCharPath /In QD2Fill} Bdef
  561. /Fr {/Fr GlyphPaint} Bdef
  562. /If {/If GlyphPaint} Bdef
  563. /Of {/Of GlyphPaint} Bdef
  564. /Eo    /W load def 
  565. /No {pop} Bdef
  566. end
  567. /QD2Show {
  568. ShowDict exch get exec
  569. } Bdef
  570.